MODULE AreaTriangulo; 
    VAR 
       base: real; 
       altura: real;
       area: real;  
BEGIN 
    area:=(base*altura)/2;
END AreaTriangulo.
